home *** CD-ROM | disk | FTP | other *** search
/ Time Warp / Time Warp.iso / pc / timewarp / lab.dxr / 00237.ls < prev    next >
Encoding:
Text File  |  1997-06-09  |  2.9 KB  |  105 lines
  1. on ChooseDownloadMovie
  2.   global discType
  3.   puppetSprite(5, 1)
  4.   set i to count(discType)
  5.   if i > 0 then
  6.     set currdiscType to getAt(discType, i)
  7.     deleteAt(discType, i)
  8.   else
  9.     set currdiscType to "generic"
  10.   end if
  11.   if currdiscType = "mayan" then
  12.     set x to random(4)
  13.     if x = 1 then
  14.       LoadMovie(5, "JMAY1.MOV")
  15.     else
  16.       if x = 2 then
  17.         LoadMovie(5, "JMAY2.MOV")
  18.       else
  19.         if x = 3 then
  20.           LoadMovie(5, "JMAY3.MOV")
  21.         else
  22.           LoadMovie(5, "JMAY4.MOV")
  23.         end if
  24.       end if
  25.     end if
  26.   else
  27.     if currdiscType = "massage" then
  28.       LoadMovie(5, "JMASSG.MOV")
  29.     else
  30.       if discType = "pirate" then
  31.         set x to random(4)
  32.         if x = 1 then
  33.           LoadMovie(5, "JPIR1.MOV")
  34.         else
  35.           if x = 2 then
  36.             LoadMovie(5, "JPIR2.MOV")
  37.           else
  38.             if x = 3 then
  39.               LoadMovie(5, "JPIR3.MOV")
  40.             else
  41.               LoadMovie(5, "JPIR4.MOV")
  42.             end if
  43.           end if
  44.         end if
  45.       else
  46.         if currdiscType = "UF" then
  47.           LoadMovie(5, "JULTRA.MOV")
  48.         else
  49.           if currdiscType = "dessert" then
  50.             LoadMovie(5, "JDESSRT.MOV")
  51.           else
  52.             if currdiscType = "shower" then
  53.               LoadMovie(5, "JSHOWR.MOV")
  54.             else
  55.               set x to random(12)
  56.               if x = 1 then
  57.                 LoadMovie(5, "JCORTEX.MOV")
  58.               else
  59.                 if x = 2 then
  60.                   LoadMovie(5, "JFELTGD1.MOV")
  61.                 else
  62.                   if x = 3 then
  63.                     LoadMovie(5, "JFELTGD2.MOV")
  64.                   else
  65.                     if x = 4 then
  66.                       LoadMovie(5, "JGICON1.MOV")
  67.                     else
  68.                       if x = 5 then
  69.                         LoadMovie(5, "JGICON2.MOV")
  70.                       else
  71.                         if x = 6 then
  72.                           LoadMovie(5, "JINTENSE.MOV")
  73.                         else
  74.                           if x = 7 then
  75.                             LoadMovie(5, "JNAUGHTY.MOV")
  76.                           else
  77.                             if x = 8 then
  78.                               LoadMovie(5, "JNOTSURE.MOV")
  79.                             else
  80.                               if x = 9 then
  81.                                 LoadMovie(5, "JRASCAL.MOV")
  82.                               else
  83.                                 if x = 10 then
  84.                                   LoadMovie(5, "JRAWDATA.MOV")
  85.                                 else
  86.                                   LoadMovie(5, "JWOW.MOV")
  87.                                 end if
  88.                               end if
  89.                             end if
  90.                           end if
  91.                         end if
  92.                       end if
  93.                     end if
  94.                   end if
  95.                 end if
  96.               end if
  97.             end if
  98.           end if
  99.         end if
  100.       end if
  101.     end if
  102.   end if
  103.   getQTLen(5)
  104. end
  105.